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EDITORIAL 


Aquí estamos nuevamente 
reencontrándonos con ustedes 
como todos los meses. En este 
número queremos unirnos á 
este gran acontecimiento que 
es el Campeonato Mundial de 
Fútbol Italia 1990 y por eso les 
entregamos un programa con 
el cual podrán ir llevando las 
estadísticas de este 
trascendental acontecimiento. 

El curso de Player-Missile 
llega a su fin y por eso 
queremos darles un programa a 
modo de resumen de todo lo 
aprendido hasta el momento, 
así como una guía de 
referencia rápida del uso de 


dichos gráficos. 

En el curso de protección 
de software. Ies damos un 
programa que les permitirá 
engaitar a los eventuales 
transgresores. 

En el curso de Assembler 
continuamos conociendo el 
computador a través de un 
programa ejemplo. 

Finalmente, como lo 
hacemos mes a mes, les 
entregamos el mapa de 
memoria, el ranking de los 
juegos, su descripción 
muchas otras novedades 
que a continuación 
pasamos a descubrir. 
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LECCION 10 



En este número, 
aprovechando la 
ocasión del Mundial 
de Fútbol, haremos 
un breve resumen de 
las instrucciones 
vistas hasta el 
momento, volcadas 
en un programa para 
ir llevando las 
estadísticas de este 
gran evento 
deportivo. 



Antes de entrar de lleno al 
programa, objetivo principal de 
este artículo, veremos un par 
de instrucciones que te serán 
muy útiles, no sólo para este 
programa, sino también para 
cualquiera que desees 
realizar.La primera de ellas es la 
instrucción DALA 

INSTRUCCION DATA 



Hemos visto que podíamos 
guardar datos, tanto en 
diskettes como en cassettes. Sin 
embargo, hay ocasiones en que 
los datos para un programa son 
siempre los mismos, entonces 
en lugar de almacenarlos en 
alguno de estos medios, 
conviene directamente hacerlos 
formar parte del programa. 
Hasta el momento, si 
tuviéramos que hacer eso, lo 
solucionaríamos a través de 
asignaciones, l’or ejemplo si 
queremos que el vector edad 
tenga los datos 23, 22, 21, 22, 

24, deberíamos hacer: 

EDAD(1 )=23 
EDAD(2)=22 
EDAD(3)=21 
EDAD(4)=22 
EDAD(5)=24 




Esto puede ser facilitado a 
través de la instrucción DATA 
que se utiliza junto con la 
instrucción REAL). Esta última 
lo que hace es leer la 
información que se encuentra 
en las instrucciones DATA 
Veamos cómo se resolvería el 
mismo ejemplo. 

10 FOR 1=1 TO 5:READ 
A:EDAD(I)=A:NEXT I 
20 DATA 23,22.21,22,24 

También ayuda con el uso 
de estas dos instrucciones, el 
comando RESTORE. Este último 
permite que en el caso de 
existir en un programa varias 


instrucciones DATA podamos 
elegir a partir de cuál de todas 
ellas deseamos comenzar a 
leer. Esta instrucción no es 
obligatoria que aparezca. De no 
estar presente cuando el 
computador encuentre una 
instrucción RIAD va a 
comenzar a leer desde el 
primer DATA Por ejemplo: 

10 READ A:PRINT A 
20 RESTORE 50 
30 READ A:PRINT A 
40 DATA 1.2,3,4 
50 DATA 5,6,7,8 

Va a imprimir 1 y 5. Si 
borramos la instrucción ¿0, va a 
imprimir 1 y 2. 


A continuación vamos a ver 
otras instrucciones sumamente 
útiles. El ON var GOTO lista y 
ON var GOSUB lista. 

Se utilizan de la siguiente 
manera: Dependiendo del valor 
que tome la variable var, va a ir 
al número de instrucción 
correspondiente de la lista. Por 
ejemplo: 

ON I GOTO 100,200,300 
ON I GOSUB 100,200,300 

Si I vale 1, el programa va a 
ir a la instrucción 100, si vale 2 
a la 200 y así sucesivamente. 

En este caso, si vale más de 3, 
sigue con la instrucción que 
venga a continuación. 1.a 
diferencia entre que sea GOTO 
y GOSUB, la hemos visto en 
ntimen>s anteriores. 

Un ejemplo muy útil de 
aplicación para estas 
instrucciones, es cuando 
tenemos un menú en un 
programa y debemos realizar 
distintas acciones según la 
opción elegida. Por ejemplo, en 
los programas entregados en 
números anteriores de archivos, 
teníamos que seleccionar si 
deseábamos dar altas, 
modificaciones, o inicializar el 
diskette. Para ello debíamos 
hacer 3 instrucciones IF, para 
saber qué opción se había 
escogido. Exactamente lo 
mismo podemos realizarlo con 
una sola instrucción 
ON...GOTO. 

Finalmente veremos dos 
instrucciones más: ASC y CHR$. 
La primera de ellas se utiliza 
para que dado un carácter 
cualquiera nos diga cuál es el 
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código interno que utiliza el 
computador para representarlo. 
Dicho código varía de ü a 255 
y se denomina ATA5C1I. La 
función CHK$ funciona al revés. 
Dado un número de 0 a 255, el 
computador nos muestra qué 
carácter representa. 

La función Cl 1R$ la vamos 
a utilizar para clarificar nuestros 
listados. Por ejemplo para 
limpiar la pantalla siempre 
hacíamos "PRINT" y una flecha 
apuntando a la esquina 
superior izquierda, que la 
lográbamos oprimiendo las 
teclas DSC, CONTROL y CLEAR. 
Ahora vamos hacer lo mismo 
con la instrucción PRINT 
CHR$(125), ya que 125 es el 
código ATASCOI 
correspondiente a ese gráfico. 
Prueba hacer PRINT CHR$< 125) 
en modo directo y verás su 
resultado. 

líl programa que damos 
al final tiene varias 
opciones. Primero 
puedes ir ingresando los 
resultados. Verás que si 
ingresas un equipo que íio 
existe, Prasil por ejemplo, el 
computador te pedirá que lo 
corrijas. Una vez ingresados los 
resultados, podrás solicitarle la 
tabla de posiciones de cada 
uno de los grupos, la general, la 
de goles a favor y la de goles 
en contra. Tú puedes agregarle 
que dichas tablas las imprima 
en papel y que almacene los 
resultados en disco o cassette. 

Analiza cuidadosamente el 
programa y cualquier duda no 
temas en escribimos, que ésta 
será solucionada. ¡¡¡Hasta 
pronto!!! 


En la Edición anterior de 
nuestra Revista 'llirbo News, 
hemos desarrollado la 
estructura de los Files Binarios. 

Otra de las formas de 
cargar un programa en el 
computador, es utilizar el 
Formato Boot. 

Cuando el computador se 
enciende, una vez que realiza 
todas las i nidal ¡/.aciones de las 
posiciones de memoria que 
afectan a los distintos Chips del 
Hardware testea si existe una 
carga de algún cassette o 
diskette con el formato Boot. 

Si al encender el 
computador, la tecla Start está 
presionada sola o 
conjuntamente con la tecla 
Option, se intenta una carga de 
archivos desde la grabadora. 
Pero si sólo está presionada la 
tecla Option ó bien ninguna de 
estas teclas está siendo 
presionada se intenta,si la 
diskettera está en línea,una 
carga directa desde el diskette 
en el formato Boot. 

Un archivo Boot de disco 
está constituido por una 
sucesión de bytes que se 
encuentran almacenad >s 
consecutivamente en el diskette 
desde el sector 1. 

Su estructura comienza con 
un encabezado de 6 bytes que 
le indican al Sistema Operativo 
en qué zona de la memoria se 


va a ubicar el programa y 
cuántos sectores se van a leer. 
Para tener claro cuál es la 
función de cada uno de estos 
bytes los describiremos 
detalladamente: 


Byte’ 1 Cero 

Byte 2 Cantidad de sectores 
a leer 

Byte 3 LO BYTE del Load 
Adress 

Byte 4 HI-BYTE del Load 
Adress 

Byte 5 LO-BYTE del Init Adress 
Byte 6 HI-BYTE del Init Adress 













FILES: 




F.l primer byte del primer 
sector generalmente no es 
utilizado para la carga de 
programas Boot y por lo 
general contiene un cero. 

El segundo byte contiene 
la cantidad de sectores de 128 
bytcs cada uno que se leerán 
para la carga del archivo Uoot. 

El tercer y cuarto byte, 
le indican al Sistema Operativo 
del Computador, cuál es la 
primera posición de memoria 
en donde se comenzarán a 
cargar los bytes del archivo y el 
quinto y sexto byte le indican 
cuál es la posición de memoria 
a la cual se le transferirá el 
control una vez terminado el 
proceso de carga. 

Cuando el proceso de carga 
se inicia, el computador realiza 


los siguientes pasos: 

1 - Lee el primer sector del 
disco y lo almacena en las 
posiciones de memoria 
consecutivas de $400. 

2 - Se procesan los 
primeros 6 bytes del sector, 
para lo cual: 

- el primer byte se 
almacena en DI'IAGS o-$240. 

- el segundo byte se 
almacena en DBSKCT o $241. 

- el Load Adress se 
almacena en BOOTAD o $242. 

- el Init Adress se almacena 
en DOSINI o $C. 
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3 - Luego tic- procesar esta 
información, se almacenan los 
restantes 122 bytes leídos del 
primer sector del disco en las 
c<irrespi ludientes direcciones 
según el Load Adress. 

4 - Se leen los restantes 
sectores, del disco directamente 
sobre las posiciones adecuadas 
según ei Load Adress. 

5 - Una vez cargado todo 
el programa en la memoria se 
ejecuta el proceso de 
inicialización. Para esto el 
Sistema Operativo, realiza un 
llamado a la Subrutina que 
comienza desde el séptimo 
byte de la c arga, es decir, 
ejecuta unJSR LOAD 
ADRESS+6. Este proceso de 
inicialización tiene como 
objetivo definir los valores cic¬ 
los punteros que administran 
las zonas de memoria libres en 
nuestro Atari. 

MI-MU) [*2E7, $2E8], una 

vez cargado todo el programa, 
debe apuntar a la primera 
posición disponible de la 
memoria RAM para que el 
Sistema Operativo proteja la 
zona del programa ya cargado. 
Para esto, en esta subrutina se 
debe ejecutar una asignación 
tanto a MKMLO como a 
APPMHI [SOK. SOFJ definiendo a 
estos dos punteros 
direccionados a la primera 
posición fuera del programa 
cargado. Es decir, que si el 
programa finaliza con un rótulo 
END debemos ejecutar en esta 
subrutina las siguientes 
instrucciones: 



LDA #<END 
STA MEMLO 
STA APPMHI 
LDA #>END 
STA MEMLO+1 
STA APPMHI+1 

Otra dirección que hay que 
modificaren la inicialización 
de la RAM es DOSVKC [ÍOA, 
$0Bj. DOSVKC. debe apuntar 
antes de terminar esta 
inicialización de la RAM a la 
posición dentro del programa 
en donde se encuentra el 
cuerpo principal del programa. 
Supongamos que el cuerpo se 
inicia en el rótulo INICIO, 
debemos ingresar el código: 

LDA #<INIClO 
STA DOSVEC 
LDA #>INICIO 
STA DOSVEC+1 

l\)r último debemos 
ejecutar el regreso de esta 
subrutina pero dejando en cero 
el indicador de acarreo, pues 


sino el Sistema Operativo 
asume que existió un Boot 
Error. Para esto ingresamos el 
código: 

CLC 

RTS 

6 - Luego de inicializar la 
RAM, se ejecuta la inicialización 
del Software ya cargado en la 
memoria. Esto se logra 
ejecutando el S.O. un llamado 
JSR DOSINI, pues como lo 
indicamos en el paso 2. el Init 
Adress se copia en DOSINI. 

7 - Por último, se transfiere 
el control absoluto al programa 
ya cargado con un JMP 
DOSVEC, que en el proceso de 
inicialización de la RAM, obtuvo 
el valor de la posición en la 
cual comenzaba el cuerpo 
principal del programa. 

Esta es la estructura de 
archivos Boot. Parece compleja 
pero en la práctica son archivos 
muy útiles pues cargan 
automáticamente, sin necesidad 
de cargar ningún D.O.S. o 
programas cargadores. Para 
clarificar un poco la idea de los 
Files Boot, definiremos en la 
práctica la generación de un 
programa Boot (pág. 2'’) 

Este programa está listo 
para compilarse y almacenarse 
consecutivamente en el diskette 
a partir del byte 1 del sector I y 
til encender el Computador, 
automáticamente correrá el 
programa cuyo cuerpo principal 
se encuentra a partir del rótulo 
PROGPRINCIPAL. 

Esta estructura de archivos 
sólo es aplicable para los 
programas desarrollados en 
I.enguaje Assembler. Para que 
un programa Basic corra al 
encenderse el Atari debemos 
incorporar en el disco un 
programa especial que en las 
siguientes ediciones de tu 
Revista Tl'RBO news te 
explicaremos cómo hacerlo. 





Mapa de 
memoria 

En esta Edición de tu Revista TURBO news, 
desarrollaremos las posiciones de memoria 
comprendidas entre 708 y 732. 
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El Atari utiliza un método 
muy flexible para la generación 
de colores en la pantalla. En 
vez de almacenar el color dé¬ 
cada punto de la pantalla en la 
memoria de ésta, Atari se 
refiere a un registro de color. 
Cada plxel de la pantalla, 
contiene el número del registro 
de color que lo identifica. Es 
decir que si deseamos cambiar 
el color del gráfico desplegado 
con el registro de color 1, lo 
único que deberemos realizar 
es almacenar en dicho registro 
el valor del color a utilizar. 

Existen 5 registros de tolo 
numerados del 0 al 4. El 
registro 4 es conocido como el 
registro de BACKGROUND 
porque a él se refieren todas 
las zonas de la pantalla en las 
cuales no hay nada graficado. 

Los registros de color 
ocupan cada uno un byte de 
memoria, de los cuales los 
cuatro bits de alto orden 
definen el color de 0 a 15 y los 
cuatro de bajo orden el brillo 
del mismo. Pero de estos 
cuatro bits, sólo se exupan 3 
que definen 8 niveles de brillo. 
Por lo tanto, con los 16 colores 
cada uno de los cuales con 8 
niveles de inteasidad se 
pueden obtener 128 colores. 

REGISTRO DE COLOR: 


7654 / 

321 7 

0 

COLOR / 

BRILLO 7 

SIN USO 



704 $2C0 PCOLRO: Color del 
player/missile número 0 

705 $20 PCOLRlt Color del 
player/missile número 1 

706 $2C2 PCOLR2: Color del 
player/missile número 2 

707 $2C3 PCOLR3: Color del 
player/missile número 3 

708 $2C4 COLORO: Este byte 
representa al registro de color 
cero y es la copia del registro 
de Hardware ubicado en la 
posición de memoria $IX)16 (3 
53270. 

709 $2C5 COLORI: 

Representa al registro de color 
1 cuyo registro de Hardware se 
encuentra en la posición $1X)17 
ó 53271. 

710 $2C6 COLOR2: Al igual 
que el byte anterior, representa 
al registro'de color número 2 
cuyo registro de Hardware se 
encuentra en $D018 ó 53272. 

711 $2C7 COLOR3: 

Representa al registro de color 
3 y su posición en el Hardware 
es $D019 ó 53273. 


712 $2C8 COLOR4: 

Representa al registro de color 
número 4 y como lo indicamos 
anteriormente es el background 
de la pantalla. Es un shadow 
del registro de Hardware 
ubicado en $1)01 A (3 53274. 

Cuando nos referimos a 
que determinada posición es 
un Shadow de otra, en realidad 
estamos indicando que es 
copia de la anterior. Esto es así, 
pues el Sistema Operativo de 
nuestro Atari, posee 
determinadas posiciones de 
memoria que son utilizadas 
para comunicarnos 
directamente con el Hardware y 
que son de sólo escritura o 
lectura. Por este motivo el S.O. 
trabaja con posiciones de 
memoria, copia de las 
anteriores que siempre tienen 
el mismo valor pero que 
pueden leerse y escribirse y es 
el mismo Sistema Operativo 
que las copia desde el Shadow 
al registro de Hardware cada 













interrupción de Vertical Blank. 

El Basic de nuestro Atari 
utiliza la instrucción SKTCOLOR 
para definir el color que se 
almacenará en el registro de 
color. Pero conociendo las 
direcciones de los registros de 
color, el mismo trabajo se 
puede realizar con un POKE: 

SETCOLOR 1,2,7 = POKE 
709.(2*16)+7 

Cuando encendemos el 
computador, los registros de 
color se definen con los 
siguientes valores: 


REGISTRO 

COLOR 

708 

40 

709 

202 

710 

148 

711 

70 

712 

0 


729 $2D9 KRPDEL: Cuando 
mantenemos presionada una 
misma tecla del teclado durante 
unos instantes, ésta comienza a 
repetirse en la pantalla. Esta 
posición de memoria maneja el 
tiempo que debe ser 
presionada antes de comenzar 
a repetirse. Pero este valor 
puede modificarse pokeando 
cualquier valor que va a indicar 
la cantidad de 1 /6() segundos 
que el computador va a esperar 
antes de comenzar la 
repetición. 

730 $2DA KEYREP: Esta 
posición contiene la velocidad 
de repetición de las teclas al 
mantenerse oprimidas. Si en 
esta posición almacenamos un 
0 le estamos indicando al S O. 
que no repita teclas, es decir, 
que al presionar una tecla sólo 
se imprime un carácter, pero 


cualquier valor puede ser 
almacenado en esta posición 
de memoria. 

731 $2DB NOCIJK: Si en esta 
posición almacéname >s 
cualquier valor distinto de cero, 
el teclado deja de hacer su 
ruido característico cada vez 
que presionamos una tecla. 

732 $2DC HELPFG: Esta 
posición de la memoria indica 
si la tecla IIELP está o no 
siendo presionada. Si contiene 
un 17, la tecla HELP ha sido 
presionada sola, un 81 indica 
que fue presionada junto a la 
tecla SI HIT y un US con la 
tecla CONTROL. 
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TECNICAS 


9 *° 


Los IXXS (Sistemas 
Operativos de Disco), poseen 
en su menú principal 2 
opciones de copias de archivos 
Son la opción O de Duplícate 
Lile y la C de Copy Lile, Las 
diferencias entre ellas tienen 
que ver con el uso de una o 
dos disketteras. Mediante ellas 
se pueden realizar copias de 
cualquiera de los archivos 
almacenados en disco La 
técnica de protección consiste 
en "esconder'' el directorio del 
diskette para que no se pueda 
acceder a sus archivos y poner 
en su lugar uno falso, que 
confunda a los transgresores. 
Cabe destacar que esta técnica 
no evita que se pueda copiar el 
disco entero. 

Para entender el tema 
daremos primero una breve 
introducción de cómo maneja 
los archivos el computador 
ATAKI. Para mayor información, 
rogamos referirse al artículo 


DE 




Gv 




En este número, 
continuamos con las 
técnicas de 
protección de 
Software. Veremos 
cómo evitar las 
copias realizadas 
desde el DOS 2.5 que 
es el que mayor 
difusión ha tenido. 

















correspondiente aparecido en 
números anteriores de nuestra 
revista. 

Id directorio del disco es la 
parte más ocupada de éste. 
Cada vez que se quiere leer, 
grabar, modificar algún archivo, 
la diskettera lo consulta antes 
de hacer nada. Se encuentra 
lísiea y aproximadamente en el 
centro del diskette, para que su 
acceso sea lo más rápido 
posible, listo es en los sectores 
361 a 3ÓH También existe un 
sector, el 361), denominado 
VIOC, que contiene la 
información de cuáles sectores 
se encuentran desocupados y 
cuáles no, 

lü técnica de esconder 
el directorio consta de siete 
pasos. 

1 I lacer una ec >pia 
desprotegida del disco, 

2 Hacer que nuestro 
programa corra 
automáticamente al encender 
el computador (autorun). 

3 buscar un espacio libre en 
el disco donde ubicar el 
nuevo directorio. 

4 Copiar el directorio a la 
nueva ubicación. 

5 I lacer que el I JOS c< >n< >zca 
la nueva ubicación. 

6 Poner un directorio 
disfrazado en su lugar. 

7 borrar el DI'PSYS 
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PASO I 

Como el disco una vez 
protegido no va a ser 
modiíicable, conviene tener 
una copia por cualquier 
alteración que queramos 
hacerle en el futuro. 

PASO 2 


pueda ser parado durante su 
funcionamiento. Para lo 
primero el DOS 2.3 tiene 
incorporado en el programa 
SHITIP.CO.M. la opción de que 
un programa basic sea un 
AinORl N. Consulte su manual 
por cualquier duda. Para hacer 
que no se pueda detener, debe 
consultar el primer capítulo de 
este artículo descrito en el 
número anterior, 

PASO 3 

Debe buscar un lugar de 
ocho sectores libres 
consecutivos libres, para poner 
allí i-l directorio. Kl programa 
que va incluido en la revista lo 
hace automáticamente en la 
opción I del menú. Debe tener 
en cuenta que por una 
limitación que existe en la 
fórmula correspondiente al 
PASO 3. dichos sectores libres 
deben encontrarse entre los 
sectores 236 y 311, 


Cuando cargamos el 
diskette con el directorio 
modificado, si no se corre el 
programa automáticamente \ 
sin que se le pueda detener 
(con bKKAK, RI-SIT, etc.), 
corremos el riesgo de que 
puedan averiguar con un 
simple PPIÍK, dónde está el 
directorio. Por ello debemos 
hacer que el programa sea un 
AUTORUN y protegerlo de que 


PASO * * 

Consiste en copiar los ocho 
sectores a la nueva posición. I I 
programa que incluimos, 
también lo hace a través de la 
opción 2 del menú. 
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PASO 5 

Para que el DOS conozca la 
nueva posición del directorio, 
basta con pokear en la posición 
de memoria 4171 el resultado 
de la siguiente fórmula: 

VALOR A POKEAR=105+(PRIMER 
SECTOR DEL DIRECTORIO 
ESCONDIDO-361) 

l\)r ejemplo si queremos 
esconder el directorio a partir 
del sector 4(X) debemos hacer: 

105 +(400-361)=144 
POKE 4171,144 

Como el valor a pokear va 
de 0 a 255, de ahí la limitación 
de dónde esconder el 
directorio de los sectores 256 a 
511. Este POKE también lo 
realiza automáticamente el 
programa en la opción 2 del 
menú. A continuación, 
debemos grabar el disco con el 
nuevo DOS con la posición de 
memoria modificada. Para ello 
debemos ir al DOS y con la 
opción H grabarlo en el disco a 


prc iteger. 

PASO 6 

A continuación viene la 
parte más entretenida, que 
consiste en poner un directorio 
falso en el disco. Aquí hay 
varias alternativas. Número 1, 
podemos poner el directorio de 
un disco en blanco. Número 2, 
poner el directorio de un disco 
cualquiera. Número 3, teniendo 
un editor de sectores, poner allí 
cualquier mensaje 
intimidatorio. 

Los primeros dos casos, se 
realizan con el programa que 
adjuntamos en su opción tres, 
que permite copiar el directorio 
de cualquier otro disco, ya sea 
en blanco o no. 

PASO 7 

Hasta ahora hemos logrado 
lo siguiente: si encendemos el 
computador con el diskette 
modificado, vamos a poder ver 
ese directorio, pero no el de 
los demás discos, porque el 
DOS va a buscarlo donde está 


el nuestro. 

Lo mismo sucede si 
encendemos el computador 
con un DOS cualquiera. 

Cuando queramos ver el disco 
nuestro, vamos a ver el 
directora > disfrazad»>. 

Para que el directorio real 
no sea visto nunca (>or nadie, 
lo que hay que hacer es borrar 
el DUP.SYS, que es un 
programa de apoyo del 
DOS.SYS. Es el que permite que 
veamos el menú con todas las 
opciones del DOS (ver 
directorio, copiar, borrar, etc ). 

lina vez realizado todo 
esto, el disco va a funcionar 
perfectamente, pero no se va a 
poder ver su directorio y por 
ende tomar cada uno de sus 
archivos. Claro que con 
cualquier copiador de sectores, 
copiando el disco tal cual, sin 
ver su directorio puede ser 
copiado. En el próximo 
número veremos cómo evitar 
esto también. 
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QUINTA PARTE 

En el número pasado, terminamos de 
entregar todas las armas para poder usar 
los Players-Mlsslles. En este numero les 
vamos a entregar una guía de referencia 
rápida, más un programa ejemplo de 
utilización de los Misslles. 


Dado que la cantidad de 
posiciones de memoria que 
hay que conocer para poder 
hacer un programa que utilice 
Players Missiles es mucha, en 
este número les entregamos 
una guía de referencia rápida, 
para evitar tener que consultar 
todas las revistas cada vez que 
quieras programar algo. 
Cuando una posición te 
provoque dudas, no temas en 
consultar la revista 
correspondiente donde 
encontrarás más detalles de 
ésta. 

Comenzaremos con las 
posiciones de inicialización del 
programa: 


Posición 


Contenido 


54279 Número de página de memoria donde comienza 

RAM de Player Missile. El valor se toma del 
PEEK(106h la cantidad de páginas que deseemos reservar. 
559 Aviso para Antic de habilitación de PM y resolución 

de los mismos. El valor se toma de la siguiente tabla: 


NUMERO BIT 

543210 

VALOR BIT 

3216 8 4 2 1 

HABILITACION PANTALLA 

1 

RESOLUCION PM 

1 

HABILITACION PLAYER 

1 

HABILITACION MISSILE 

1 


El resto de los bits no son utilizados. Para saber qué valor pokear, se 
deben sumar los valores de los bits que queramos que estén en uno,más 
dos. 


Posición 

Contenido 

53277 

Aviso para GTIA de habilitación de PM. Un dos significa 
sólo Player y un tres Player y Missile. 


Luego se debe hacer que coincida la zona de RAM de los PM con la de 
las variables. Se hace a través de las siguientes posiciones de memoria: 


Posición 

Contenido 

134,135 

140,141 

Comienzo de la tabla de valores de las variables. 

Comienzo de la zona donde está realmente el contenido de 
las variables 
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Para el desplazamiento 
horizontal del PM, tenemos la 
siguiente tabla: 


POSICION 

DESCRIPCION 

53248 

Posición Player 0 

53249 

Posición Player 1 

53250 

Posición Player 2 

53251 

Posición Player 3 

53252 

Posición Missile 0 

53253 

Posición Missile 1 

53254 

Posición Missile 2 

53255 

Posición Missile 3 


Recuerda que los valores 
de 20 a 60, dependiendo del 
'IV, y de 200 a 245, quedarán 
fuera de la pantalla. 

Para el color del PM, existe 
la siguiente tabla: 


POSICION 

DESCRIPCION 

704 

COLOR PM 0 

705 

COLOR PM 1 

706 

COLOR PM 2 

707 

COLOR PM 3 


Para el control de la 
anchura tenemos la siguiente: 


POSICION 

DESCRIPCION 

53256 

TAMAÑO PLAYER 0 

53257 

TAMAÑO PLAYER 1 

53258 

TAMAÑO PLAYER 2 

53259 

TAMAÑO PLAYER 3 

53260 

TAMAÑO TODOS 


LOS MISSILES 





Un 0 o un 2 significa 
anchura simple. Un 1, anchura 
doble y un 3 anchura 
cuádruple. 

La posición 623 se utiliza 
para el control de la 
prioridad. Puede tomar los 
siguientes valores 


VALOR 

PRIORIDAD 

1 

P0 P1 P2 P3 TODOS PLAYFIELDS 

2 

P0 P1 TODOS PLAYFIELDS P2 P3 

4 

TODOS PLAYFIELDS P0 P1 P2 P3 

8 

PF0 PF1 P0 P1 P2 P3 PF2 PF3 


multiCentro 


OFICINAS GENERALES: 
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Para la detección de 
colisiones leñemos l;i siguiente 
labia: 


SOLUCION PUZZLE 
(Edición N° 9) 


\ 0 J '6 
10 ‘ lb 
10' ,b 
40 . 1 b 

I0'' b 

.0,lt 

30.56 


POSICION 

DESCRIPCIÓN 

53252 

PLAYER 0 CON PLAYFIELD 

53260 

PLAYER 0 CON PLAYER 

53253 

PLAYER 1 CON PLAYFIELD 

53261 

PLAYER 1 CON PLAYER 

53254 

PLAYER 2 CON PLAYFIELD 

53262 

PLAYER 2 CON PLAYER 

53255 

PLAYER 3 CON PLAYFIELD 

53263 

PLAYER 3 CON PLAYER 

53248 

MISSILE 0 CON PLAYFIELD 

53256 

MISSILEOCON PLAYER 

53249 

MISSILE 1 CON PLAYFIELD 

53257 

MISSILE 1 CON PLAYER 

53250 

MISSILE 2 CON PLAYFIELD 

53258 

MISSILE 2 CON PLAYER 

53251 

MISSILE 3 CON PLAYFIELD 

53259 

MISSILE 3 CON PLAYER 


Los valores que* puede 
lomar son los siguientes: 


NUMERO DE BIT 

3 2 10 

VALOR DE BIT 

8 4 2 1 

PoPFO 

1 

PoPF 1 

1 

P o PF 2 

1 

Po PF 3 

1 


lil valor final sale igual que 
en el casi > del 559. 

1.a posición 53278 se utiliza 
para el horrado de los registros 
de colisión, listo se logra 
pokeándole cualquier valor 
Al final les entregamos 
un programa con el cual 


podrán practicar el uso de 
los missilcs y la transformación 
de los l'l-AYKKS. Pongan 
atención al efecto del 
movimiento de la rueda y la 
evolución de la explosión 
Ustedes pueden agregarle más 
sonido y más pasos a dicha 
explosión. También pueden 
intentar agregarle un tanteador 
y un número limitado de 
disparos. En el próximo 
número continuaremos con la 
paite gráfica del computador, 
viendo cómo hacer los dibujos 
ile fondo o Playlields. 
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LECCION 10 

En esta lección del 
curso de Assembler 
trataremos a fondo el 
sistema de 
comunicación del 
computador con sus 
periféricos. 

Estudiaremos el 
funcionamiento de 
las rutinas del CIO 
(Central Input Output 
System) que manejan 
dicha comunicación 
y como caso 
práctico veremos el 
listado de la rutina 
TOMOUN.MAC, que 
en nuestro sistema se 
utiliza para que el 
usuario ingrese una 
línea de programa o 
bien un comando. 







Uno de los temas más 
complicadas de manejar desde 
el Assembler para nuestro Atari, 
es el manejo de la 
comunicación entre la C.P.U. y 
los periféricos. 

Para nuestro computador, 
los periféricos son: 


- El Editor E 

- El Teclado K 

- La Pantalla S 

- La Impresora P 

- El Grabador C 

- La Diskettera 1) 


- La Interfaz RS232 R: 

Cada uno de estos 
periféricos tienen una 
abreviatura que los menciona y 
que son el medio de 
reconocimiento para que el 


computador sepa a cuál nos 
estamos refiriendo. Es por esto 
cjue cuando en el Basic 
queremos almacenar un 
programa en el Diskette, 
debemos ingresar la 
instrucción: 

SAVE"D:NOMBRE 

Cuando queremos 
desarrollar alguna operación de 
Entrada o Salida desde el 
computador a los periféricos o 
viceversa, debemos utilizar los 
IOCB (Input Output Control 
Blocks). Los IOCB, son tablas 
de bytes que le indican al 
computador los datos 
completos de la operación a 
realizar. Cada IOCB, está 
compuesto por 16 bytes y 
existen en el Sistema Operativo 


H IOCB que se encuentran 
localizados en las siguientes 
direcciones de memoria: 

IOCBO $340 

IOCB1 $350 

IOCB2 $360 

IOCB3 $370 

IOCB4 $380 

IOCB5 $390 

IOCB6 $3A0 

IOCB7 $3B0 
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ASSEMBLER 


ATASCII 

BYTE 

DIRECCION 

P 

50 

30 

E4 

C 

43 

40 

E4 

E 

45 

00 

E4 

S 

53 

10 

E4 

K 

4B 

20 

E4 


00 

00 

00 


00 

00 

00 


00 

00 

00 


00 

00 

00 


00 

00 

00 


00 

00 

00 


00 

00 

00 


00 

00 

00 


00 

00 

00 


ENTRADAS LIBRES 


Otro concepto importante 
para tener en cuenta en el 
sistema de comunicación son 
los device handler. Para cada 
uno de los periféricos del 
computador existe un handler, 
El handler es una tabla que 
informa al Sistema Operativo 
qué tipo de operaciones puede 
realizar el periférico y en qué 
direcciones del Sistema 
Operativo encuentra las rutinas 
que atienden a cada una de 
ellas. 

Los handlers de los 
periféricos se encuentran 
ubicados en una tabla de 
handlers llamada HATABS que 
se encuentra localizada en la 
dirección $31 A. Esta tabla de 
Handlers tiene espacio para 
;ümacenar 14 entradas de 
periféricos, 5 de las cuales se 
definen automáticamente 
cuando se enciende el 
computador, que son los 
handlers que manejan la 
impresora, el grabador, el 
editor, la pantalla y el teclado. 


La estructura de esta tabla 
de handlers es la siguiente. 
Cada entrada está definida por 
3 bytes. El primero de ellos 
representa al carácter ATA5CII 
de la abreviatura del periférico 
y los dos restantes representa la 
dirección en LO y 111 bytes de 
la tabla de comandos que el 
periférico maneja. Luego de 
definirse las entradas de todos 
los periféricos en 
funcionamiento existe un cero 
que representa el final de la 
tabla. En el caso del Atari 800 
XI. la tabla de handlers está 
compuesta por los siguientes 
bytes, como se ve arriba 

Si analizamos el hadler dé¬ 
la impresora, vemos que la 
tabla de operaciones válidas 
para este periférico se 
encuentran almacenadas en el 
sistema operativo a pan ir de 
$E430. 

Siempre esta tabla de 
operaciones válidas tiene el 
mismo orden: 


OPEN-1 

CLOSE-1 

GET-1 

PUT-1 

STATUS-1 

SPECIAL-1 

JMP INICIALIZACION 

Cada periférico puede 
realizar sus operaciones. Para 
saber en qué posición del 
sistema operativo está la rutina 
que ejecuta el Open de la 
impresora, el S.O., primero 
ubica el periférico P en 
HAT'AHS. Al hacerlo, sabe con 
los dos siguientes bytes dónde 
se encuentra la tabla de 
comandos válidos para la 
impresora y la rutina de open 
la obtiene pues está apuntada 
por los dos primeros bytes de 
esta tabla, siempre sumándole 
al valor de esta dirección un 1. 

Esta estructura de 
funcionamiento de las tablas de 
periféricos es bastante 
complicada pero tiene su 
explicación. Si el usuario desea 
modificar el funcionamiento de 








algún periférico lo puede hacer 
y bien sencillo sería. l.o único 
que debe hacer es modificar el 
contenido de la tabla HATABS y 
generar las rutinas que van a 
ocupar a este periférico. 
También sería fácil generar 
nuevos periféricos agregando 
entradas a la tabla 1IATABS. 

Existe también otro bloque 
de información que es utilizado 
por este sistema de 
comunicación que se llama 
DCB o Device Control Block. 
Este bloque está constituido 
por 12 bytes y se encuentra 
localizado en la zona de 
memoria $300. 

Existen dos tipos de 
comunicaciones que se pueden 
establecer con los periféricos. 

La primera de ellas, que es la 
más utilizada es la 
comunicación con la estructura 
de un archivo que se transmite, 
en la cual se debe realizar 
primero un open, luego se 
ejecutan los correspondientes 
pul bytes o put records y para 
cerrar el archivo, el cióse del 
mismo. Esta operación se 
ejecuta en Assembler con las 
rutinas llamadas CIO ($E456) y 
utilizando los IOCH como canal 
de información hacia el CIO 
para que éste sepa qué tipo de 
operación tiene que realizar. 


ocupada directamente por el 
usuario. 

Antes de trabajar sobre los 
aspectos prácticos de las 
comunicaciones en Assembler, 
veremos la estructura detallada 
de los IOCB y el DCB. 

IOCB 1: $350 

$350 ICHID: Es un puntero a 
la tabla de periféricos, seteada 
por el Sistema Operativo. 

$351 ICDNO: Número de 
periférico como DI: o D2: 
$352 ICCOM: Código del 
comando a ejecutar. 

$353 ICSTA: Contiene el 
estado final de la última 
operación realizada. 

$354 $355 ICBAI. ICBAH: Es 
un puntero al bufier de donde 
se tomará o dejará la 
información de la operación 
de l/O. 

$356 $357 ICPTL ICPTH: 

Estas dos posiciones contienen 
la dirección menos uno de la 
rutina de put byte definida por 
el Sistema Operativo. 



El otro tipo de 

comunicación es más-sencillo 
pues en él sólo se realiza una 
entrada o salida de una 
sucesión de bytes sin 
estructura. Esta transmisión se 
ejecuta con las rutinas del SIO 
que se encuentran ubicadas en 
la dirección $K459 y para saber 
qué datos se transmiten se 
utiliza el DCB que se encuentra 
en $300. En realidad este tipo 
de comunicación es utilizada 
por el CIO pero conociendo 
sus parámetros puede ser 
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$358 $359 ICBLL ICBLH: 

listas posiciones contienen la 
cantidad máxima de hytes a 
transferir por cada Get o Put. Es 
decir que definen la longitud 
del buller a transmitir. 

$35A ICAX1: lí.s un byte 
auxiliar que es utilizado en el 
comando de üpen para indicar 
si el archivo va a ser utilizado 
para lectura, escritura, para 
ambos o bien para abrir el 
directorio del disco. 


7 6 5 4 

3 

2 

1 

0 


W 

R 

D 

A 


Cuando el bit W está en 
uno, el archivo fue abierto para 
escritura, cuando el bit R está 
en uno, lo fue para lectura, 
pero si el bit I) fue seteado en 
uno, el archivo será utilizado 


para abrir el directorio y la 
última operación posible la 
otorga el bit 0 que en uno, 
significa que el archivo fue 
abierto para Append, es decir, 
para incorporarle nuevos datos 
tt éste. 

$35B ICAX2: Byte auxiliar 1. 
$35C $35D ICAX3 ICAX4: 
Bytes auxiliares que mantienen 
el número de sector dentro del 
disco para las instrucciones 
Note y Point. 

$35E ICAX5: liste byte indica 
cuál fue el último carácter leído 
dentro del sector en las 
operaciones de Note y Point 
$35F ICAX6: Sin utilización 
Para el byte ICCOM existen 
una serie de valores asociados 
con las operaciones basic XIO 
que se corresponden con el 
siguiente listado: 


COMANDO 

DECIMAL 

Open 

3 

Get Text Record 

5 

Get Binary Record 

7 

Pul Text Record 

9 

Rut Binary Record 

11 

Cióse 

12 

Rename 

32 


Erase 

33 

Protect 

35 

Unprotect 

36 

Point 

37 

Note 

38 

Format 

254 


Si queremos desarrollar 
solamente una operación de 
entrada o salida, siendo 
importante sólo la 
comunicación de un bloque de 
bytes y no una estructura de 
archivo, podemos ocupar el 
sio ($1*459). Para esto lo único 
que tenemos que hacer es 
definir correctamente los 
parámetros del DCB y llamar a 

la rutina $iE459 o $Ii453 si el 
periférico es la diskettera. 

$300 DDEV1C: Número de 
dispositivo. 

Diskettera 1 49 

Diskettera 2 50 

Diskettera 3 51 

Diskettera 4 52 

Impresora 64 

Cassettera 96 

$301 DUNIT: Número de 
unidad. 1 en el caso de la 
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Diskettera l.etc. 

$302 DCOMND: Cimligo de la 
operación a realizar: 


Read 82 

Write 87 

Status 83 

Put 80 

Formal 33 


$303 DSTATS: Debe* poseer 
un $80 si la operación es de 
salida de datos y un $40 si es 
una entrada de datos hacia el 
c< imputad» >r. 


$304 $305 DBUFLO/HI: listas 
[posiciones apuntan a la zona 
de memoria de donde se sacan 
o dejan los datos de la 
operación. 

$306 DTIMLO: Es el valor 
máximo en tiempo que el 
sistema se toma para recibir 
dalos de los ¡periféricos 
$307 sin Uso. 

$308 $309 DBYTLO/HI: 
Indican la cantidad de bytes a 
transmitir en 1.0 y I II bytes. 
$30A $30B DAUX1/2: liytcs 
auxiliares de la operación que 
en el caso de la diskettera 
indican el número de sector 
dentro del disco. 

lin el caso práctico de 
nuestro desarrollo, en la 
sección de programas de esta 
edición, incorporamos la rutina 
TOMOLIN.MAC, que está 
diseñada para recibir del 
usuario una linea por el 
Editor li:. 

lin este casi >. m > es 
necesario realizar la operación 
de Open pues el liditor ya se 
encuentra abierto por el 
Sistema Operativo cuando se 
enciende el computador. 

La primera instrucción que* 
ejecutamos es un I.DX #() para 
indicarle al computador que 
deseamos utilizar el IOCM 0 
que generalmente se ocupa 
para el editor. Luego cargamos 
a $342.X con un 5 que indica 
según la lista ya desarrollada un 


Get Text Record. 

Una vez definida la 
operación, con las 
instruid» ines: 

LDA #<LINEA 
STA $344,X 
LDA #>LINEA 
STA $345,X 

definimos hacia qué 
posiciones de memoria van a ir 
los bytes que el usuario 
ingrese. Luego con las 
instrucciones: 

LDA #$FF 
STA $348,X 
LDA #$00 
STA $349,X 

definimos la cantidad 
máxima de bytes a recibir, que 
en este cas» > s» m 235. 

Con estas instrucciones 
tenemos todos los parámetros 
de la operad»'ni listos y sólo 
nos queda invocar a la rutina 
del CIO con un: 

JSR $E456 

En esta sección del curso 
liemos hecho una inu'oduccitin 
al sistema de comunicacit'ni del 
computador hacia sus 
periféricos, pero este es un 
tema bastante complejo para 
tratarlo en una sola lección, por 
lo tanto en la siguiente edicicin 
de Turbo News seguiremos 
analizando este lema. 


COMERCIAL ESTADO 


SU MEJOR ALTERNATIVA 

APUMANQUE 6029 - EL FARO - TEL: 212719 
ESTADO 59 - TEL.: 339824 
ESTADO 64 - TEL.: 718294 














POS. DEL 
MES 


POS. MES 
ANTERIOR 


TITULO 




t 

I 


1 


18 

RAID OVER MOSCOW 

2 


9 

MONTEZUMA'S REVENGE 

3 


7 

GREMLINS 

4 


1 

HARDBALL 

5 


5 

GHOSTCHASER 

6 


13 

ZAXXON 

7 


21 

SWAT 

8 


8 

NINJA 

9 


2 

INTERNATIONAL KARATE 

10 


- 

DESPATCH RAIDER 

11 


11 

BOULDER DASH 1 

12 


- 

RALLY SPEEDWAY 

13 


- 

ELECTRICIAN 

14 


23 

BMX SIMULATOR 

15 


- 

WAR GAMES II 

16 


- 

BOINA VERDE 

17 


10 

F1GHTER PILOTII 

18 


- 

ON TRACK 

19 


- 

ELEKTRAGUDE 

20 


19 

SCREEMINGS WING 1942 

21 


- 

TIME SLIP 

22 


24 

STAR RAIDERSII 

23 


6 

LEGACYII 

24 


3 

CRYSTAL RAIDER 

25 


20 

GHOSTBUSTER 


Ibs^ 


ASCENSO 


CONSTANTE 


DESCENSO 


Este es el Ranking correspondienle al mes de Mayo, obtenido 
en base a las estadísticas de ventas de cassettes Turbo Soft¬ 
ware en todo Chile. Recuerda que tus preferencias también 
serán tenidas en cuenta, para lo cual podrás escribir a Av. 
Feo. Bilbao 4226, Las Condes, con los juegos de tu elección. 


ZAXXON 

Programa espacial tri-dimensional- En 
éste, deberás descubir la base donde se 
encuentra escondido el robot AL2000, que 
maneja todo el sistema ZAXXON. Tu misión 
es destruirla, pero para acercarte a ella, 
deberás esquivar murallas, campos 
magnéticos, radares, misiles anti-aéreos, 
ametralladoras y escuadrones de aviones 
cazas. No deberás descuidar el coasumo de 
combustible, el que podrás obtener 
destruyendo los tanques que irán apareciendo 
a tu paso. Debes tener en cuenta que volando 
a mayor altura, el consumo de combustible es 
mucho mayor. 

Tienes a tu izquierda un indicador de 
altitud que podrás utilizar para guiar tu paso y 
no chocar con los obstáculos que irán 
apareciendo a tu paso. 
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RAID OVER MOSCOW 


SONIDO 

6.2 

GRAF1CACION 

6.7 

ADICGON 

6.7 

PRESENTACION 

6.8 

PROMEDIO 

6.55 



I 3 l tercera guerra mundial ha estallado y 
sólo tú, al mando de un escuadrón de 
combate, podrás detener los misiles con 
ojivas nucleares disparadas desde la Unión 
Soviética hacia los Estados Unidos. La única 
manera de detenerlos, una vez lanzados, es 
destruir la base que los lanzó. Tendrás tres 
visiones del combate. La primera, una 
situación general (mostrada en la foto) con 
la posición de tus naves defensivas, la 
posición de los misiles enemigos, la ciudad 
que los lanzó (destacada en color blanco), el 
nombre de ésta (en la foto Saratow), la ciu¬ 
dad amenazada (New York) y el tiempo de 
impacto (5:10). La segunda es la de tu pro¬ 
pia base de despegue a la que podrás acce¬ 
der oprimiendo la barra espadadora. Debe¬ 
rás intentar hacer pasar tu nave por la com¬ 
puerta sin chocarla. Una vez en el aire, con¬ 
ducirás tu nave hacia la ciudad atacante, lue¬ 
go de lo cual, pasarás automáticamente a la 
tercera pantalla. En ella realizarás un vuelo 
razante por territorio enemigo, destruyendo 
sus defensas. Una vez alcanzada la base ten 
drás que destruir sus cuatro elfos y por últi¬ 
mo la torre de control. 


SWAT 

Te encuentras envuelto en una misión 
muy especial. Un grupo de terroristas se ha 
apoderado del barrio Oeste de Los Angeles. 
Debes dirigirte, junto con tu fuerza especial 
compuesta por tres hombres y rescatar los 
rehenes que encuentres, pero VIVOS. 

Se supone que la población civil ha 
despejado la zona, pero siempre hay algunos 
que no lo consiguen. Deberás encontrar a los 
jefes de las bandas y matarlos, evitando herir 
a los ciudadanos inocentes. También deberás 
cuidarte de no ser golpeado por los 
criminales armados de garrotes, por las 
granadas que éstos te lanzarán y por los 
francotiradores que te dispararán desde los 
tejados. 
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BASIC 


10 01M EQUIPO* (384 ) , TABLA (7,24) . NOM* 
<15) .BLANCO*(16) .ZON*< 1 > : BLANCO*(1) = 
" ":BLANCO*<16>=" “ 

15 BLANCO* <2)=BLANCO*:EQUIPO*( 1 ) = “ " 
: EQU1 PO* ( 38*1 > =" “ : EQU I PO* (2 > =EC1U I PO* 
17 FOR 1=1 TO 7:FOR J=1 TO 24:TABLA < 
I , J)=0:NEXT JsNEXT I 
20 FOR 1=1 TO 24 

30 READ NOM*:EQUIPO*<(1-1)*16+1 . I * 10 
)=NOM*:NEXT 1 

40 ? CHR*(125):POSIT1ON 10,3»? "MENU 
PRINCIPAL" 

50 POSITION 3,7:7 "1- INGRESO RESULT 
ADOS" 

60 POSITION 3.9:7 "2- TABLA POSICION 
ES GENERALES" 

70 POSITION 3,11:7 "3- TABLA P0S1CI0 
NES POR GRUPO" 

BO POSITION 3,13:7 "4- TABLA GOLES F 
AVOR GENERALES" 

90 POSITION 3,15:7 "5- TABLA GOLES E 
N CONTRA GENERALES" 

100 TRAP 100:POSITION 5,18:7 "INGRES 
E SU OPCION"; 

110 INPUT OPCION 

120 ON OPCION GOTO 200,390.500,650.7 

00 

130 GOTO 100 

200 7 CHR*<125):TRAP 40000 
210 POSITION 3,3:7 "EQUIPO 1 "jíINPU 
T NOM*:1=1:NOM*(LEN(NOM*)+1)=BLANCO* 
220 IF EQUIPO*<(1-1)*16+2.1*16)=N0M* 
THEN 250 

230 1 = 1 + 1: IF I<25 THEN 220 
240 7 "El. EQUIPO NO EX ISTE": GOTO 210 
250 POSITION 30,3:7 "GOLES ";:INPUT 
GOL 1 

260 POSITION 3,5:7 "EQUIPO 2 ";:INPU 
T NOM*:J =1:NOM*(LEN(NOM*)+1)=BLANCÜ* 
270 IF EQUIPO*((J-l)*16+2.J*16)=NOM* 
THEN 300 

280 J=J+1: IF J<25 THEN 270 
290 7 "El. EQUIPO NO EX ISTE": GOTO 260 
300 POSITION 30,5:7 "GOLES :INPUT 
GOL 2 

310 IF GOL 1>G0L2 THEN TABLA(2,I)=TAB 
LA<2,I)+1:TABLA(4,J)=T 
ABLA < 4,J) + 1:TABLA <7,1)=TABLA(7, I)+23 
20 IF G0L2>GOL1 THEN TABLA<4,I) = TABL 
A<4, 1> + 1:T ABLA(2,J)=T 

ABLA < 2, .1) + 1 : TABLA (7, J ) =TABLA (7, J ) +2 

330 IF G0L2=G0L1 THEN TABLA<3,I)=TAR 

LA <3,I)+1:TABLA<3,0)=T 

ABLA <3,J) + 1:TABLA(7,I)=TABLA(7, I> +1: 

TABLA < 7,J)=TABLA< 7, J ) + 1 

340 TABLA(1,1)= TABLA(1, I) + 1:TABLA(1, 

J)=TABLA(1.J)+1 

350 T ABL A <5,I)=TABLA<5,I)+G0L1:TABLA 
(5, J)=TABLA(5,J)+G0L2 

360 TABLA( 6 .I)=TABLA< 6 ,1)+GOL2:TABLA 
< 6 ,J)=TABLA< 6 ,J)+GÜL1 
370 GOTO 40 
390 AUXI=7 

400 7 CHR*(125):POSIT1ON 6.6:7 "UN M 


OMENTO POR FAVOR..." 

410 FOR 1=1 TO 23 
420 FOR J = I+1 TO 24 

430 IF T ABLA (AUX 1 . 1X1 ABLA (AUX I , J ) I 
HEN GOSUB 2000 
440 NEXT .1: NEXT I 

450 7 CHR*(125):"EQUIPO J G 

E P PTS GF BC" 5 CHR*(29) 

460 FOR 1=1 lO 20 

470 7 EQUIPO*<(1-1)*16+2,1*16): TABLA 
(1.1)5" ";TABLA(2,1);" ";TABLA(3.1 

>;" ";T ABLA(4,1);" ";TABLA(7.I);“ 

": 

480 7 TABLA(5,!>;" ":TABLA( 6 .1):NE 

XT I:? CHR*(29):"OPRIMA RETURN PARA 
CONTINUAR";:INPUT ZUN*:7 CHR*(125) 
482 FOR 1=21 TO 24 

484 7 EQUIPO*((1-1)*16+2,I*16);TABLA 

< 1. 1) ; " ";TABLA(2,I..¡TABLA(3, t 

) ; " ";TABLA(4. I .. ABLA < 7, I);" 

486 7 TABLA...TABLA( 6 ,I):NE 

XT 1:7 CHR*(29):"OPRIMA RETURN PARA 
CONTINUAR";sINPUT ZON* 

490 GOTO 40 

500 ’ CHR* ( 125) ; : POSM ION 2.4:7 "1NG 

RESE ZONA";:INPUT ZON*:POSIIION 10.1 
0:7 "UN MOMENTO_" 

510 IF ZON*>"F" OR ZON*<"A" THEN 500 
520 FOR 1=1 TO 23 
530 FOR .1=1 + 1 TO 24 

535 AUX 1 = (1-1 > *16+1: AUX J=( J-l ) *lt>+l 
540 IF EQUIPO*(AUXI.AUXI)=ZON* AND E 
CU IPü*(AUXJ,AUXJ)=ZUN* AND TABLA <7,1 
) TABLA(7.J) THEN GOSUB 2000 
560 NEXT JsNEXT I 

570 7 CHR*(125)5"EQUIPO J G 

E P PTS GF GC" 

580 FOR 1=1 TO 24 

590 IF EQUIPO*<(1-1)*16+1.(1-1)*16+1 
)=ZON* THEN GOSUB 620 

600 NEXT I:? CHR*<29>s"OFR1MA RETURN 
PARA CONTINUAR";:INPUT ZON* 

610 GOTO 40 

620 7 EDUIPO*((1-1)»16+2,1*16);TABLA 

< 1. I >: " ":TABLA(2.1):" ";TABLA(3,I 

...TABLA(4,1 > ; " TABLA(7,I);" 

" 5 

630 7 TABLA(5,1):“ ";TABLA( 6 .I);RE 

TIJRN 

650 AUX1=5:GOTO 400 

700 7 CHR*<125):POSITION 6.6:7 "UN M 

OMENTO POR PAVOR_" 

710 FOR 1=1 TO 23 
770 POR J=I+1 TO 24 

730 IF TABLA< 6 ,I)>TABLA< 6 .J> THEN GO 
SUB 2000 

740 NEXT JsNEXT 1 
750 GOTO 450 

1000 DATA A1IALlA,AAUSTRIA,AEE.UU.,A 
CHECOSLOVAQUIA 

1010 DATA BARGENIINA.BCAMERUN.BURSB. 
BRUMANIA 

1020 DATA CBRAS1L,CSUECIA,CCOSTA RIC 
A,CESCOCIA 

1030 DATA DE. ARABES.DCOLDMB1 A.DALEM 
AN1A OCC..DYUGOSLAVIA 

1040 DATA EBELGICA.ECOREA DEL SUR.EU 




RUGUAY,EESPANIA 

1050 DATA FINGLATERRA,FIRUANDA.FHOLA 
NDA.FEGIPTO 

2000 NOM*=EQUIPO*(«1-11*16+1, I * 16)3 E 
QUIPOS < (I-l)* 16+1, I*16)=EQUIFO* < <0 — 1 
> * 16+1,J*16) :EQUIPO* ((J-l> *16+1,J* 16 
)=NOM* 

2020 FOR X= 1 TO 7: AUX = T ARLA ( X , I ) : TAE< 
LA(X, I)=TABLA « X.J):TABLA < X,J)=AUX s NE 
XT X 

2030 RETURN 

BOOT FILES 


loo LOADADRESS=*2000 

lÍO MEML0=*2E7 

120 APPMHI-ÍOE 

130 D0SVEC=*0A 

140 *=LÜADADRESS 

150 .BYTE *0 ; PRIMER BYTE DEL VE 

CTOR 

160 .BYTE LOADADRESS-END+127/128 

: PANTIDAD DE SECTORES 


170 

.WORD LOADADRESS 

180 

.WORD INITADRES 

190 

INIC1 AL I i ACION-DE-RAM 

200 

LDA 

«KENO 

210 

STA 

MEMLO 

220 

STA 

APPMHI 

230 

LDA 

W >END 

24» 

STA 

MEMLO+1 

250 

STA 

AF'F'MH I +1 

260 

LDA 

#•PROGPRINCIPAL 

270 

STA 

DOSVEC 

280 

LDA 

«>PR0GPRINC1PAL 

290 

STA 

DOSVEC+1 

300 

CLC 


310 

RTS 


320 

INITADRES 

330 

: 


340 

: Aquí 

viene la rutina que 

35» 

; inicializa nuestro programa 

360 

: principal si es necesario. 

370 

1 


380 

RTS 


390 

i 


400 

F'ROGF'R INCI PAL 

4 10 

! 


420 

: Aquí 

viene el software princ 

al 



430 

! 


440 

; 


450 

END 



TECNICAS DE PROTECCION 


10 DCB=768 

20 DIM BUFFER*(128).BLANCO*<125),AUX 
*<2>.PRG*(6) 

30 BUFFER*(1,1>=" BUFFER*(128,12B) 
= " ":BUFFER*(2)=BUFFER*:BLANCO*=BUFF 
ER* 

35 E«LANCU* (1,1) =CHR* (O) : BLANCO* (125. 
125)=CHR*(O):BLANCO*(2)=BLANCO* 


37 FOR 1=1 TO 5: READ A: PROS*(X.I>= 
CHR*(A): NEXT I 

40 ? CHR*(125):POSIT1ON 12,3:7 "MENU 
PRINCIPAL" 

50 POSITION 1,7:? "1)BUSQUEDA DE SEC 
rORES EN BLANCO" 

60 POSITION l, 10: ? **2)M0VER DIRECTOR¬ 
IO" 

70 POSITION 1.13:? "31 DISFRAZAR DIRE 
CTOR10" 

80 POSITION 3,18:? "SU OPCION ": 

90 TRAP 90:INPUT OPCION 

100 ON OPCION GOTO 200,400,600 

I10 GOTO 90 

200 GOSUB 1000:? CHR*(125):POS1TION 

10,8:? "TRABAJANDO-":CANT=0 

205 POPE DCB+2,82 

210 FOR SECTOR=255 TO 510 

220 GOSUB 2000 

230 IF BUFFER*(1,125).>BLANCO* THEN 
CANr=0:GOTO 245 

240 CANT=CANT +1:IF CANT =6 THEN POP : 
GOTO 260 

245 POSITION 5,14:? "SECTOR: ";SECTO 
Ri" BLANCOS: ";CANT 
250 NEXT SECTOR 

260 POSITION 5,20:? "MUEVA AL SECTOR 
: "iSECTOR-7 

270 FOR 1=1 TO 1000:NEXT I:GOTO 30 
400 ? CHR*(125)¡"INGRESE NUMERO DE S 
ECTOR INICIAL: "¡ 

410 INPUT OPCION 

420 FOR 1=1 TO 8 

430 POPE DCB+2,82:GOSUB 1OOO 

440 SECT0R=360+I:GOSUB 2000:POSITION 

5.10:? "SECTOR: "}360+Ii? CHR*(29);B 

UFFER* 

450 F'OKE DCB+2.87: GOSUB 1000 
460 SECT0R=0PCI0N-1+I:GOSUB 2000 
470 NEXT I : F'OKE 4 1 71.105+0PCI0N-361 : 
GOTO 30 

600 FOR 1=0 TO 8 

610 ? CHR*(125);"INGRESE DISCO CUALQ 
DIERA Y OPRIMA RETURN";:INPUT AUX* 
620 POPE DCB+2.82:GOSUB 1000 
630 SECT0R=36O+I:GOSUB 2000:POS1TION 
5,10:7 "SECTOR: 360+1:7 CHR*(29);B 

UFFER* 

635 ? "INGRESE DISCO A PROTEGER Y OP 
RIMA RETURN"::INPUT AUX* 

640 POPE DCB+2,87:GOSUB 1000 
650 SECT0R=360+I:GOSUB 2000 
660 NEXT I:GOTO 30 
1000 ADDR=ADR<BUFFER*) 

1010 ADDRHI=INT(ADOR/256) 

1020 ADDRLO=ADDR-<ADDRHI*256> 

1030 POPE DCB+4.ADDRLO 
1040 POPE DCB+5. AD1TRH1 
2000 SECT0RH1=INT(SECTOR/256) 

2100 SECTORLO=SECTQR-(SECTORHI*256) 
2200 F'OKE DCB+ 10. SECl'QRLO 
2300 POPE DCB+11.SECTORHI 
2400 X=USR(ADR < PROG*):RETURN 
2410 DATA 104.32,83,228.96 




GRAFICOS X COMPUTADORA 


10 DIM NAVE*(256).TANQUE*<256).MI*(2 
56) . CUE 

REO*(I4>.AVION*(10).RUEDA* <0).BLANCO 
* <256) , MISIL.* (10) .EXPLO* (30) 

30 BLANCO* <1)=CHK* <0):BLANCO* <253)=C 
HR* < O):BLANCO* < 2)=BLANCO*:QPAPHICS 3 
+ 16:BASE =PEEK <106)-16 
40 POKE 54279,BASE 

50 PMBASE = BASE * 256:F OR I=PMBASE + 76B 
TO PMBASE+1536:POKE I,0:NEXT I:REM B 
ORRA ZONA DE PLAYERS 

60 POKE 559.62:REM HABILITACION PLAY 
ERS-MISSILES RESOLUCION 2 LINEAS 
70 POKE 53277,3:REM HABILITACION PLA 
YERS Y MISSILES 

00 REM MODIFICACION DE VVTP PARA QUE 
APUNTE A ZONA DE PLAYERS 
90 STARP-PEEK <140)+PEEK(14 1)*256 
100 VVTP=PEEK<134)+PEEK(135)*256 
110 I =PMBASE+ 1024—ST ARF' 

120 HB=1NT<1/256) 

130 POKE VVTP+2,I-HB*256 
140 POKE WTP+3.HB 
150 I=PMBASE* 1280-STARP 
160 HB=INT <I7256) 

170 PQI E VVTP+1C), I-HB*256 
180 POKE VVTP+11.HB 
102 I«PMBASE+ 768-STARP 
104 HB=INT <1Z256) 

106 POKE VVTP+1B,I-HB*256 
100 POKE VVTP+19,HB 

T90 FOR 1=1 TO 14:READ A:CUERPO*<l.I 
)“CHR* < A):NE X T 1 

192 FOR 1=1 TO O:READ A:RUEDA*<1,I>= 
CHR*(A):NEXT I 

200 FOR 1=1 TO 10:READ A:AVION*<1.I) 
=CHR* < A):NEXT l 

202 FOR 1=1 TO 10:READ A:MISIL*<I,I) 
=CHR*(A):NEXT I 

204 FOR 1=1 TO 30:READ A:EXPLO*<I.1) 
=CHR* <A):NEXT I 

205 POKE 710,66:POKE 704,15:P0KE 705 
, 7:GOSUB 3000 

210 TANQUE * < 200)=CUERF O*:CLA=1 
220 HP0S=50:HP0S2=220:RAN=3:RAN2=10 
230 J0Y=STICK<0> 

240 IF J0Y=7 THEN HP0S=HP0S+2-<HPOS> 
200) *2: CLA= <CLA= 1) *2+<CLA=2) -.GOTO 26 
O 

250 IF JOY= 1 1 THEN HP0S=HP0S-2+ (HF'OS 
<50)*2:CLA=<CLA=1)*2+<CLA=2> 

260 TANQUE*(215)=RUEDA* <(CLA-l)*4+1, 
CLA*4>:HPOS2=HPOS2-RAN 

265 IF HF0S2C10 THEN HPOS2=220:RAN=I 
NT <RND(O)*3)+1:RAN2=I 

NT(RND<0> * 13)+1:NAVE*=BLANCO*: NAVE* < 
4 +RAN2* 10)=AVION* 

270 POKE 53249,HFOS:POKE 53248,HP0S2 

275 IF CLA2=1 THEN VP0S=VP0S-6:MI *<V 
POS)=MISIL*:IF VP0S<7 THEN CLA2=0:P0 
KE 53253,0 

276 IF PEEK <53257)00 THEN GOTO 1000 
200 IF STRIG <O) = 1 ÜR CLA2=1 THEN 230 


290 POKE 53253,HPOS:CLA2=1:VP0S=200 
300 GOTO 230 
1OOO SOUND 1,12,0,10 

1010 NAVE* <4+RAN2*10)=EXPLO* <1,ÍO):F 
OR 1=1 TO 60:NEXT 1 
1020 SOUND 1,16,8,10 

1030 NAVE* <4+RAN2*10>=EXPLO* <11,20): 
FOR 1=1 TO 60:NEXT 1 
1040 SOUND 1,12.8,10 

1050 NAVE* <4+RAN2*10)=EXPLU*(21,30): 
FOR 1=1 TO 60:NEXT I:SOUND 1,0,0,0:P 
OKE 53253,O:HP0S2=5:POKE 53278,O:GOT 
O 230 

3000 POS1TION 0,21:7 46;"AAAAAAAAAAA 
AAAAAAAAAAAAAAAAAAAAAAAAAAAA" 

3020 ? 46;"AAAAAAAAAAAAAAAAAAAAAAAAA 
AAAAAAAAAAAAAA" 

3030 ? 46;"AAAAAAAAAAAAAAAAAAAAAAAAA 
AAAAAAAAAAAAAA" 

3050 FOR 1=1 TO 3:P0SIT10N 32,10+1*2 
:7 46s"AAAAAAA":POS 1TION 32,11 + 1*2:7 
« 6 ;"A A A A":NEXT I 

3060 POS IT ION 32,18:7 « 6 :"AAAAAAA":F 
OR 1=1 TO 2:POSITION 32.18+1:7 46:"A 
A AA":NEXT I 

3070 FOR 1=1 TO 2:POSITION 22,15+1*2 
:7 46: "BBBBBBBBBB":POSI1 1ON 22,16 + 1* 
2:7 46;"B BB B":NEXT I 
3140 POSITION 0,15:FOR 1 = 1 TO 3:7 46 
:" CCCCCCC":7 46;" 

C C C":NEXT I 

3150 POSITION 0,1OtFOR 1 = 1 TO 4:7 «6 
BBBBBBB":7 46:" B B 

B B":NCXT 1:7 46a" BBBBBBB" 

3160 FOR 1=1 TO 2:7 46;" BB 

BB":NEXT I 

3170 F'OSITION 0,17:7 46;" AAAAAA " 
3180 7 46;"AAAAAAAA":FOR 1=1 TO 2:7 
46a"AA AA":NEXT I 
4000 RETURN 

10000 DATA 16,16,16,16,16,16.56,56.1 
24.124,255,255,255,255 
10010 DATA 84.1.128,42,42.128,1.84 
10030 DATA 01,03,07,63,127,255,234,5 
6,28,14 

10040 DATA 4.4,4,4.O,O,O,O,O,O 
10050 DATA 1,19,63,127.127,255.254,1 
24,60,14,24 

.60,126,255,255,255.255,126.60.24.4. 
89,62,124,126,62,124.90,145,16 

ASSEMBLER I 


0100 

;SAVE4D:TÜMOLIN.MAC 



Olio 

TOMOLINEA 




0120 

; 




01 30 

: RUTINA PARA EL 

1NGRESU 

DE i 

UNA 

0 140 

: LINEA DESDE EL 

TECLADO 

QUE 

SE 

0150 

: ALMACENARA EN ' 

.A DIRECCION 

DE 

0 160 

; MEMORIA LINEA. 




0170 

* 




0180 

LDX 40 




0190 

LDA 4*05 




0200 

STA *0342,X 




0210 

LDA 4 «CLINEA 




0220 

STA *0344,X 







0230 


LDA 

B >L1NEA 

0240 


STA 

*0345.X 

0250 


LDA 

B*FF 

0260 


STA 

*0348,X 

0270 


LDA 

40 

0280 


STA 

*0349,X 

0290 

: 



0300 

s 

LLAMADA AL CIO. 

0310 

; 



0320 


JSR 

*E456 

0330 


RTS 


0340 

TOMOl INEAl 

0350 

i 



0360 

; 

RUTINA PARA EL 

0370 

¡ 

LINEA 

DESDE EL 

0380 

; 

ALMACENARA EN t 

0390 

i 

MEMORIA LINEA 

0400 

s 

DE GUARDOY, EN 

0410 

• 

PROGRAMA HAYA ( 

0420 

1 

MERO DE LA INS' 

0430 

i 

PANTALLA. 

0440 

i 



0430 


LDX 

40 

0460 


LDA 

4*05 

0470 


STA 

*0342,X 

0480 


CLC 


0490 


LDA 

B ALINEA 

0500 


ADC 

GUARDOY 

0510 


STA 

*0344,X 

0520 


LDA 

B >L 1 NEA 

0530 


ADC 

40 

0540 


STA 

*0345.X 

0550 


LDA 

4*FF 

0560 


STA 

*0348.X 

0570 


LDA 

40 

0580 


STA 

«0349.X 

0590 

i 



0600 

1 

LLAMADA AL CIO 

0610 

1 



0620 


JSR 

*E456 

0630 


RTS 



INGRESO DE UNA 


+ EL CONTENIDO 


ASSEMBLER II 


01 oo 

;SAVEBD:XREN.MAC 


01 10 

; 



01 20 

; 

RUTINA DE RENUMERACION 

DEL 

01 30 

5 

LISTADO 


0140 

« 



0150 

REN 


0160 


JSR TOMOPARAM 


0170 


JSR XREN 


0180 


RTS 


0190 

; 



0200 

; 

SUBRUTINA QUE SOLICITA 

AL 

0210 

; 

USUARIO LOS PARAMETROS 

DE 

0220 

; 

LA RENUMERACION 


0230 

; 



0240 

TOMOPARAM 


0250 

; 



0260 

; 

IMPRIME EN LA PANTALLA 

EL 

0270 

« 

MENSAJE CONTENIDO EN RÜTDESDE 

0280 

; 



0290 


LDA 4 <RÜTDESDE 


0300 


STA MANDO 


0310 


LDA B -ROTDESDE 


0320 


STA MANDO+1 



0330 


JSR 

IMPRIMO 

0340 


JSR 

BORROAUX 

0350 

1 



0360 

s 

LE PIDE AL USUARIO EL -NUMERO 

0370 

5 

INICIAL PARA LA RENUMERACION 

0380 

I 

SI ES 

UN RETURN ASUME UN 100 

0390 

S 



0400 


JSR 

INGRESONUMERO 

0410 


LDX 

GUARDOX 

0420 


CPX 

#0 

0430 


BNE 

NODEFAULT 

04 40 


LDA 

B 1 OO 

0450 


STA 

DESDE 

0460 


LDA 

BO 

04 70 


STA 

DESDEDI 

0480 


LDA 

B <ROT100 

0490 


STA 

MANDO 

0500 


LDA 

B >RQT100 

0510 


STA 

MANDO+l 

0520 


JSR 

IMPRIMO 

0530 


JMP 

INCREM 

0540 

NODEFAULT 

0550 

I 



0560 

; 

CON LAS RUTINAS DEL FL0AI1NG 

0570 

i 

POINT 

CONVIERTE EL NUMERO 

0580 

i 

INGRESADO EN ATASCII EN DOS 

0590 

5 

BYTES. 


0600 

: 



0610 


LDA 

40 

0620 


STA 

CIX 

0630 


JSR 

*D800 

0640 


JSR 

*D9D2 

0650 


LDA 

FRO 

0660 


STA 

DESDE 

0670 


LDA 

FRO+l 

0680 


STA 

DESDE+l 

0690 

INCREM 


0700 


JSR 

BORROAUX 

0710 

1 



0720 

* 

IMPRIME EN LA PANTALLA EL 

0730 

5 

CONTENIDO DE ROTINCRE PARA 

0740 

5 

QUE EL USUARIO DEFINA EL 

0750 

; 

INCREMENTO ENTRE LINEA Y 

0760 

I 

LINEA. 


0770 

i 



0780 


LDA 

B ROTINCRE 

0790 


STA 

MANDO 

0800 


LDA 

B ¿ROTINCRE 

0810 


STA 

MANDO+1 

0820 


JSR 

IMPRIMO 

0830 

5 



0840 

I 

LE PIDE AL USUARIO QUE INGRESE 

0850 

t 

EL INCREMENTO. SI PRESIONA RE- 

0860 

• 

TURN, 

ASUME QUE ESTE ES 10. 

0870 

t 



0880 


JSR 

INGRESONUMERO 

0890 


LDX 

GUARDOX 

0900 


CPX 

40 

0910 


BNE 

NQDEFAULT2 

0920 


LDA 

410 

0930 


STA 

INCREMENTO 

0940 


LDA 

40 

0950 


STA 

INCREMENTO*1 

0960 


LDA 

B <ROT10 

0970 


STA 

MANDO 

0980 


LDA 

B >ROT1O 

0990 


STA 

MANDO+1 

1OOO 


JSR 

IMPRIMO 




1010 

JMP 

SAL 1 DA 


1690 

• 

1020 

N0DEFAULT2 


1 700 

; CORREDOR 3 TABLA 

1030 

; 



1710 

! 

1 040 

! CONVIERTE El. INCREMENTO 

EN 

1720 

LDA 4 <TABl.A 

1050 

; DOS BYTES. 


1730 

STA CORREDOR 

1060 

1 



1740 

LDA 4 >TABLA 

1070 

LDA 

«0 


1750 

STA CORREDOR*1 

1080 

STA 

CIX 


1 760 

! 

1090 

JSR 

*D800 


1770 

; TABLA VACIA? 

1 1 00 

JSR 

*D9D2 


I 780 

¡ 

1 1 10 

LDA 

FRO 


1790 

LDA CORREDOR 

1 120 

STA 

INCREMENTO 


1800 

CMP FINTAS 

1 130 

LDA 

FRO+1 


IB 10 

BNE INC RE 

1 1 40 

STA 

INCREMENTO*1 


1820 

LDA CORREDOR*1 

1 150 

SAL I DA 



1830 

CMP F1NTAB*1 

1 160 

LDA 

4*9B 


1840 

BEO RECREG 

1 1 70 

JSR 

*F 2 B 0 


1850 

; 

1 180 

R'TS 



1860 

; INCREMENTU=0 ? 

1 190 

INGRESONUMERO 


18 70 

¡ 

1 200 

LDX 

«O 


1 880 

INC RE 

1210 

srx 

GUARDOX 


1 890 

LDA INCREMENTO 

1 220 

LORINE 



1900 

BNE COLOCAR 

1 2 50 

JSR 

*F2F8 


1910 

IDA INCREMENTO*1 

1 240 

STA 

GUAR'DOA 


1920 

BNE COLOCAR 

1 250 

CMP 

4’ 0 


1930 

JSR PARAINV 

1260 

BCC 

ESRET 


1940 

JMP RECREG 

1270 

CMP 

4 ’ : 


1950 

i 

1 280 

BCS 

ESRET 


1960 

; ASIGNA EL NUEVO VALOR DEL 

1290 

JSR 

SF2B0 


1970 

¡ NUMERO DE LINEA A LA 

1 300 

LDA 

GUARDOA 


1 980 

; INSTRUCCION. 

1310 

LDX 

GUARDOX 


1990 

; 

i 520 

STA 

AUXILIAR.X 


2000 

COLOCAR 

1 530 

LDX 

GUARDOX 


2010 

I.DY «0 

1340 

INX 



2020 

LDA DESDE 

1 350 

RTX 

GUARDOX 


2030 

STA (CORREDOR).Y 

1 360 

CPX 

«5 


2040 

l.DY «1 

1 370 

BNE 

LOPING 


2050 

LDA DESDE*1 

1380 

JMP 

FINING 


2060 

STA (CORREDOR),Y 

1390 

ESRET 



2070 

; 

1 400 

CMP 

tttVB 


2080 

: DESPLAZA A CORREDOR HASTA LA 

1410 

BEQ 

FINING 


2090 

; PROXIMA INSTRUCCION 

1 420 

CMP 

II ’ 


21OO 

; 

1 4 50 

BNE 

LOPING 


2110 

CLC 

1 440 

LDX 

GUARDOX 


2120 

LDY «2 

: 4 50 

CPX 

40 


2 130 

LDA (CORREDOR).Y 

1 460 

BEO 

LOF’ I NG 


2140 

ADC CORREDOR 

1 470 

DEX 



2150 

STA CORREDOR 

1480 

STX 

GUARDOX 


2160 

LDA CORREDOR*1 

1 490 

LDA 

4S98 


2170 

ADC 40 

1 500 

STA 

AUX II. 1 AK. X 


2180 

STA CORREDOR*1 

1510 

LDA 

4’ 


2190 

; 

1520 

JSR 

*F2B0 


2200 

; CORREDOR=CORREDOR+3 

1 330 

JMP 

LOF' 1 NG 


2210 

T 

1 54'' 

F 1 N 1 NB 



2220 

CLC 

1550 

LDA 

4 «AUXILIAR 


2230 

LDA CORREDOR 

1560 

STA 

INBUFF 


2240 

ADC 43 

1570 

LDA 

4 ¿AUXILIAR 


2250 

STA CORREDOR 

1580 

STA 

INBUFF*1 


2260 

LDA CORREDOR*1 

1390 

R’TS 



2270 

ADC 40 

1 600 

XREN 



2280 

STA CORREDOR*1 

1610 

; 



2290 

: 

1 620 

; GUARDA LOS REGISTROS EN 

LA 

2300 

; CORREDOR=FI NTAB ? 

1630 

; PILA. 



2310 

5 

1 640 

; 



2320 

LDA CORREDOR 

1650 

T YA 



2330 

CMP FI NT AB 

1660 

F'HA 



2340 

BNE F’ROX 

1670 

TXA 



2350 

LDA CORREDOR*I 

1 680 

F’HA 



2360 

CMP FINTAB+1 




2370 

DEC RECREG 

0200 

5 

LLAMADA:. INCLUDEttD: CONT AD. MAC 

2380 

PROX 

02 10 

■ 


2390 

CLC 

0220 

; 

JSR CON 1AB 

2400 

LDA DESDE 

0230 

; 


2410 

ADC INCREMENTO 

0240 

; 

ENTRADA: 

2420 

STA DESDE 

0250 

; 


2430 

LDA DESDE*1 

0260 

; 

*ACUMULADOR=CANT1 DAD DE 

2440 

ADC INCREMENTO*1 

0270 

5 

BYTES A BORRAR 

2450 

SI A DESDE*l 

0280 

• 


2460 

ncc COLOCAR 

0790 

• 

»PUNCON=DIRECCIUN 

2470 

JSR OVERFI.OW 

0300 

; 

EN LA TABLA DEL PRIMER BYTE A 

248l'i 

; 

0310 

5 

BORRAR 

2490 

! RECUPERA LOS REGISTROS 

0320 

; 


2500 

! 

0330 

; 

*FINTAB=PUNTERO AL 

2510 

RECREG 

0340 

* 

PRIMER BYTE LIBRE DE LA TABLA 

2320 

PL.A 

0350 

; 


2530 

TAX 

0360 

i 


2340 

FLA 

0370 

; 

SAL IDA: 

2550 

TAY 

0380 

• 

• 


2560 

RTS 

0390 

• 

t 


2570 

PARAINV 

0400 

• 

i 

*FINTAB=NUEVO VALOR 

2380 

LDA H < ROTPARAINV 

04 10 

■ 

4 


2590 

S I A MANDO 

0420 

i 


2600 

LDA tt >ROTPARAINV 

0430 

CONTAB 

261 O 

STA MANDO*1 

04 40 

! 


2620 

JSR IMPRIMO 

0450 

J 

GUARDA LOS REGISTROS EN LA PILA 

2630 

R1S 

0460 

¡ 


2640 

ROTDESDE 

0470 


STA HUECO 

2650 

.BYTE *9B."DESDE: *" 

0480 


TYA 

2660 

ROTINCRE 

0490 


PHA 

2670 

.BYTE *9B, M INCREMENTO: *“ 

0500 


T XA 

2680 

AUXILIAR 

0510 


PHA 

2690 

.BYTE " 

0520 


LDA PUNCON 

2700 

ROTPARAINV 

0530 


STA CORREDOR 

2710 

.BYTE *9B, "> PARAMETROS INV 

0540 


LDA PUNCON*1 

ALID0S",*9B, 

0530 


STA CORREDOR*1 

2720 

DESDE 

0560 

! 


2730 

.BYTE " " 

0570 

5 

DEFINE EL NUEVO VALOR DE 

2740 

INCREMENTO 

0580 


FINTAB 

2730 

.BYTE " " 

0590 

9 


2 760 

BORROAUX 

0600 


SEC 

2770 

LDY #0 

0610 


LDA FINTAB 

2780 

LOPBOR 

0620 


SBC HUECO 

2790 

LDA «0 

0630 


STA FINTAB 

2800 

STA AUXILIAR.Y 

0640 


LDA FINTAB*1 

2810 

INY 

0650 


SBC #0 

2820 

CPY #3 

0660 


STA FINTAB*1 

7830 

BNE LOPBOR 

0670 

i 

CORRE LOS BYTES PARA RELLENAR 

2840 

RTS 

0680 

: 

EL ESPACIO GENERADO 

2850 

ROT100 

0690 

: 


2860 

.BYTE "100*" 

0700 

TRAE 

2870 

ROT 10 

0710 


LDY HUECO 

2880 

.BYTE " 10*'* 

0720 


LDA (CORREDOR).Y 



0730 


LDY «0 


ASSEMBLER III 

0740 

0750 


STA (CORREDOR),Y 

CLC 



0760 


LDA CORREDOR 



0770 


ADC t»I 

0100 

: SAVEttD: CONTAB.MAC 

0780 


STA CORREDOR 

0110 

5 

0790 


LDA CORREDOR*1 

0120 

; PROPOSITO: 

0800 


ADC t»0 

0130 

i 

0810 


STA CORREDOR*1 

0140 

i BORRA BYTES DE 

0820 


LDA CORREDOR*1 

0150 

; LA TABLA DE INSTRUCCIONES 

0830 


CMP FINTAB*1 

0160 

i PARA PODER INSERTAR UNA 

0840 


BCC TRAE 

0170 

i NUEVA LINEA MAS CORTA QUE 

0850 


LDA CORREDOR 

0180 

; LA QUE REEMPLAZA 

0860 


CMP FINTAB 

0190 

5 

0870 


BCC TRAE 






0880 ; 



0890 s 

RECUPERA DE LA PILA LOS 

0900 ; 

REGISTROS 


0910 ; 



0920 

PLA 


0930 

TAX 


0940 

PLA 


0950 

TAY 


0960 

RTS 



ASSEMBLER 

IV 


0100 

• 

3AVE4D:EXTAB.MAC 

0110 
0120 

1 

5 

PROPOSITO: 

0130 
01 40 

I 

1 

GENERA UN HUECO EN 

0150 

1 

LA TABLA DE INSTRUCCIONES 

0160 

i 

PARA PODER INSERTAR UNA 

0170 

1 

NUEVA LINEA 

0180 

0190 

1 

1 

LLAMADA:.INCLUDE4D:EXTAB. MAC 

0200 

0210 

t 

• 

* 

JSR EXIAB 

0220 

0230 

I 

« 

ENTRADA: 

0240 

0250 

i 

*ACUMULADOR=CANTI DAD DE 

0260 

3 

BYTES A INSERTAR 

0270 

02 B 0 

I 

*P0INTERAUX=DIRECCION 

0290 

s 

EN LA TABLA DEL PRIMER BYTE A 

0300 

1 

INSERTAR 

0310 

0320 

3 

; 

*FINTAB=PUNTERO AL 

0330 

i 

PRIMER BYTE LIBRE DE LA TABLA 

0340 

0330 

0360 

t 

¡ 

« 

SALIDA: 

0370 

3 

*POINTERAUX=I NTACTO 

0380 

0390 

; 

: 

*F I NTAB=NUEVO VALOR 

0400 

0410 

1 

EXTAB 

0420 

0430 

J 

GUARDA LOS REGISTROS 

0440 

0450 

X 

STA HUECO 


0460 

TYA 


0470 

PHA 


0480 

TXA 


0490 

PHA 


0500 

LDA 

FINTAB 

0510 

STA 

CORREDOR 

0520 

LDA 

FINTAB+1 

0530 

STA 

CORREDOR*1 


0540 s 

0550 s DEFINE A FINTAB CON SU NUEVO 


0560 ; 

VALOR. 


0570 ; 



0580 

CLC 


0390 

LDA 

FINTAB 

0600 

ADC 

HUECO 

0610 

STA 

FINTAB 

0620 

LDA 

FINTAB+1 

0630 

ADC 

#0 

0640 

STA 

FINTAB+1 


0650 ! 

0660 5 DESPLAZA LOS BYTES PARA 
0670 j GENERAR EL ESPACIO NECESARIO 
0680 5 

0690 DESPLAZA 


0700 

SEC 


0710 

LDA 

CORREDOR 

0720 

SBC 

41 

0730 

STA 

CORREDOR 

0740 

LDA 

CORREDOR*1 

0750 

SBC 

40 

0760 

STA 

CORREDOR*1 

0770 

LDY 

#0 

0780 

LDA 

(CORREDOR),Y 

0790 

LDY 

HUECO 

0800 

STA 

(CORREDOR),Y 

0810 

LDA 

CORREDOR 

0820 

CMP 

F'OINTERAUX 

0830 

BNE 

DESPLAZA 

0840 

LDA 

CORREDOR*1 

0850 

CMP 

POINTERAUX + 1 

0860 

BNE 

DESPLAZA 


0870 5 

0880 S RECUPERA LOS REGISTROS 
0890 s 

0900 PLA 

0910 TAX 

0920 PLA 

0930 TAY 

0940 RTS 





ADQUIERALOS EN LOS SIGUIENTES PUNTOS DE VENTAS 

• ANTOFAGASTA: COOPERCARAB KW VIDEO LA ESPAÑOLA « VINA DEL MAR: FALABELLA VlNA INSIS MPR 
COMPUTACIQÑ • VALPARAISO: COMPUTRONIC,* SANTIAGO: AUDIÓ.BICICLÉTA INTERNAC CASA RpVAL CENTRO 
ATARI COMERCIAL ESTADO COMPUMANQUB COMPUCENTER FÁLABElLA AHUMADA FALABEELA P. ARAUCO 
IMACO IÑFOGf^OUP PC STORE PETER^ÉN ROLEC SUPERMERCADOS UNIMARC TASCO VlOEO CLUB 
INTERNACIONAL • RANCAGUA: CASA ZÜNIGA • CURICO: MULTIHOGAR • TALCA LIBRERIA EL AHORRO 
MULTICENTRO VÍDEO CLUB CASSAL • CHILLAN: CASA EDISON • CONCEPCION: COOPERCARAB DISMAR DÍSMAR 
2 EGUS PHANTÉR RAPSODIA SESCO • LOS ANGELES: DISTRIBUIDQRA'^ERINO • ANGOL: SCORPIO • VICTORIA: 
CASA SIGMUND» TEMUCO: COMERCIAL MANbUEHUE ESTABLECIMIENTOS GEJMAN FALABELLA • PUCON: ELTíT 

• VILLARRICA: JOYf RIA KETTERER • VALDIVIA: ELECTROMUSICA • LA UNION; IMPORTADORA COSMOS • OSORNO;. 
CASA REAL FOTO, EXPRESS • PUERTO VARAS: ELECTRO HORN • PUERTO MONTT: COMERCIAL MANOUEHUE 
DIMARSA • COYHAIOUE: FACI HOGAR • PUNTA ARENAS: BALFER LTDA 























REPRESENTANTE EXCLUSIVO PARA CHILE 

LUISA. VERDUGO AGUILERA 

MONJITAS: 843 OF. 911 - C 

TELEFONOS:339219 - 6321966 

FAX: 02-395977 

TELEX: 242283 VCF CL 

SANTIAGO - CHILE 


QuickC, hat ‘ > 

20 , 000,000 

v JOVSTICKS SOLO WORLDWIDE > 


■ QS-II TURBO 


APPLE 


■ Alón y Commodore ■ Sega, Alan, Commodore, Amstrad y MSX 
■ IBM PC/XT/AT □ IBM PC/XT/AT y Apple lle/c 
Sega, Sears, Atan, Commodore, MSX y Nintendo Enteriainment System 


DISTRIBUIDORES: 

SANTIAGO A PARIS» F ALABEL, A • CASA ROYAL • SUPERTIENDAS ABC • DISTRIBUIDORA DE-ANO • RlPLEY 

• HITES • IMACO • ESTADO OFERTA • TELEAUDIO • COMPUMANQUE • COMPUTENTE» • MICROCENTRO 

• INFOLAND-E 'TAÑEZ • VINA DEL MAR INSIS • SEI.ECTRONIC • SUPERTIENDAS ABC • FALABEALA • RIPlEY 

• VALPARAISO: SELECTRONIC • COMPUTRONIC • SUPERTIENDAS ABC • TEMUCO F ALABEILA • SUPERTIEN- 
DAS ABC • CONCEPCION FAIABELLA • SUPERTIENDAS ABC • RIPLEY • SERV COMPUTAClONAL CONCEP 
CIONLTDA • CRECIC S A • VALDIVIA.- DOMBURGO 



















